home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
007
/
boosters.arc
/
COPYSTR.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1985-11-03
|
727b
|
15 lines
{ ------------------------------------------
COPYSTR returns N concatenated copies of S
------------------------------------------ }
Function CopyStr ( S : AnyString;
N : Integer ) : AnyString;
Begin
InLine ($1E/ $8B/$4E/$04/ $83/$F9/$00/ $7F/$09/
$C7/$86/$06/$01/$00/$00/ $EB/$46/$90/ $8A/$56/$06/ $30/$F6/
$51/ $8B/$C2/ $49/ $83/$F9/$00/ $74/$04/ $01/$D0/ $E2/$FC/
$8B/$CA/ $5A/ $3D/$FF/$00/ $76/$06/ $B8/$FF/$00/ $EB/$07/$90/
$3C/$00/ $73/$02/ $31/$C0/ $88/$86/$06/$01/ $3C/$00/ $74/$17/
$8C/$D3/ $8E/$C3/ $8E/$DB/ $8D/$BE/$07/$01/ $8D/$76/$07/ $FC/
$51/ $56/ $F3/$A4/ $5E/ $59/ $4A/ $75/$F7/ $1F );
end { CopyStr };